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Introduction 


This document describes the testing of the Savage benchmark upon the Apple Lisa 
computer. The Savage benchmark tests the numeric performance of computers. 
Concentration is paid to the calculation of the following mathematical functions: 


Tangent 

ArcTangent 

Exponent (e% [e = 2.71...]) 
Logarithm (base e) 

Square Root 


The benchmark was run on a Lisa 2 system which consisted of 1 MByte of RAM, an 
internal 10 MByte hard disk drive, and an internal micro disk drive. The test program 
was written in Pascal and tested in the Lisa WorkShop 3.9 development environment. 


The Lisa computer uses a floating point engine called SANE (Standard Apple Numeric 
Environment) which was designed with numeric accuracy as the most important 
criteria. For a comprehensive discussion of SANE (i.e., what it is and why it is better) 
refer to the Apple Computer publication titled “Standard Apple Numeric Environment” 
(the Lisa WorkShop 3.0 manual set [product # 620-6149-B] also provides a very 
detailed discussion of SANE, but has little information concerning why SANE is better 
than other numeric engines). 
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Benchmark Results 


The following listing was directly generated by the Savage Hesidue benchmark program. 
The listing shows the number of iterations performed, the computation time 
(in seconds), and the computation residual value (the magnitude of the difference 
between the true value and the calculated value). 


Apple Lisa Floating Point SAVAGE RESIDUE Benchmark 
Savage Benchmark is executing ... 
Iterations Duration (sec) Residue 


. 00000000000002 
. 00000000000001 
. 00000000000017 
. 00000000000035 
. 90000000000031 
. 00000000000030 
. 00000000000110 
. 00000000000164 
. 00000000000136 
. 00000000000202 
. 90000000000093 
. 00000000000114 
. 00000000000302 
. 00000000000808 
. 90000000000721 
. 00000000000477 
00000000000744 
. 00000000001306 
. 0000000000515 
. 00000000000394 
. 00000000001003 
. 0000000000908 
. 00000000000710 
. 00000000000337 
. 000000000021 72 
. 00000000000614 
00000000000057 
. 00000000001869 
. 00000000000868 
. 00000000001282 
. 00000000003960 
. 0000000004946 
. 00000000006289 


8) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0. 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0. 
0 
0 
0 
0 
0 
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6800 d 0. 00000000007725 

0. 00000000008491 
. 00000000008717 
. 00000000008664 
. 00000000009070 
. 00000000012604 
. 00000000015592 
. 00000000015477 
. 00000000016094 
. 00000000013611 
. 00000000012138 
. 00000000014387 
. 00000000013334 
. 00000000022605 
: . 00000000020860 
957.717 . 0000000001 4886 
977.110 0. 0000000001 7072 


That's all, Folks... 


Ceoonoooocooocnoe0cad 
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Apple Lisa Floating Point SAVAGE RESIDUE Benchmark (2-Oct-87) 


In order to better understand the pattern behind the residues, the iteration count vs. the 
residue values was plotted. From the below plot one can see that the residues generally 
increase as the iteration count increases. But the increase is erratic. For example, 
iteration count 9400 had a higher residue than 9200, and iteration count 9600 was 


smaller than the residue of iteration count 9400. 


Graph of SAVAGE Iterations vs. Residue 


Residue (x 10° —14) 


Iteration (x 100) 
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Pascal Source Code Listing 


CUCPOICICIC ICICI CIEE ICOM CIC IOICIC ICC IOOIC ICI O ICICI) 


FLOATING POINT SAVAGE RESIDUE BENCHMARK 
FOR THE APPLE LISA AND SANE FP ENGINE 


{ 


October 2, 1987 


by David T. Craig 
[736 Edgewater, Wichita, KS 67230] 


Part of source code listing from Byte, Oct. 1987. p. 277 


[] 
{) 
{] 
i 
Compiled using Lisa Pascal 3.76 in the Lisa WorkShop H 
[] 
{] 
{] 
{) 
{} 
{] 


OS SS 8 ee ee eee 
teed homed tend cael benerad femeed banvet festa aera brrermed tiecamnl Boeri iene te room fad 


CUCMCICIOICICVOVCVC VOICI ICTEME ICICI CIC ICICICICIICIL) + 


PROGRAM Savage_Residue_FP_Benchmark; 


{$R- } { Turn OFF range checking } 
{$ASM+} { Turn ON 68000 assembly code listing } 


USES {$L-} 
{$U LISA/HARDWARE.08J} HARDWARE, { Lisa Hardware interface } 
iy ae } SANE; { Lisa FP engine interface } 
$L+ 


TYPE 
t_FP_Number = Extended; { 80-bit precision FP value (Apple SANE type) } 
{ accurate to 19 decimal places } 


VAR 
g_iteration : INTEGER; { Iteration counter } 
g time : MilliSeconds; { Execution time (in ms) } 
g_residue : t_FP_Number; { Residue value 


PROCEDURE Show _Execution_Results(show_title_line : 
iteration_count : 
exec_duration =: MilliSeconds; 
residue_value : t_FP_Number); 


BEGIN { Show_Execution_Results 
IF show_title_ line THEN 


BEGIN 
WRITELN( Iterations Duration (sec) Residue' ); 
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WRITELN(iteration_count: 10, ° : 
(exec_duration / 1000.0): 14: 3,° 
ABS(residue_value): 18: 14): 

Show_Execution_Results 


PROCEDURE Perform_SAVAGE_Algorithm( iter_loop : INTEGER; 
VAR exec_time : MilliSeconds; 
VAR residue : t_FP_Number); 


VAR 
i : INTEGER; { Loop counter } 
a : t.FP_Number: { Computation variable } 
start : MilliSeconds; { Starting time (in ms) } 
finish : HilliSeconds: { Ending time (in ms) } 


BEGIN { Perform_SAVAGE_Algorithm 
start := Timer; { Start the timing } 


= 1.0; { Initialize the benchmark variable } 


:= 1 TO iter_loop DO { Perform the actual benchmark } 
a oe + 1.0; 


FOR i 
a 


finish := Timer; { End the timing } 
exec_time := finish - start; { Determine real execution time } 


residue := ((iter_loop * 1.0) + 1.0) - a; { Return the residue value } 
Perform_SAVAGE_Algorithm } 


BEGIN { Savage_Residue_FP_Benchmark } 
WRITELN( Apple Lisa Floating Point SAVAGE RESIDUE Benchmark’): 
WRITELN; 

WRITELN('Savage Benchmark is executing ...°): 
WRITELN; 
{ Hake certain the SANE FP engine code is loaded } 
g_residue := SIN(10.0) * 1.2345; { Don’t Care values } 
{ Perform the actual SAVAGE benchmarks } 
Show_Execution_Results(TRUE, 0, 0, 0. 0): 
FOR g iteration := 1 TO 50 DO 

BEGIN 


Perform_SAVAGE_Algorithm (q_iteration”200, g time, g_ residue): 
Show Execution Results (FALSE, gq iteration*200, q time, g residue); 
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Apple Lisa Floating Point SAVAGE RESIOUE Benchmark (2-tict-87) 


END; 
{ Aufwiedersehen ... } 


WRITELN; 
os That''s all, Folks...'): 
Saved | Residue | FP | Benchmark 


{ Hea ee ee OOOOH ewan 
] FINTIS 
JoonooOONOOOOOOOOOOONOOOOOOOOOUDO 


} 
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